Option Explicit
Sub B_Sample049()
     MsgBox Application.LibraryPath
End Sub